home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / DATABASE / FOXRYAN.ZIP / VERIFY10.PRG < prev    next >
Text File  |  1993-07-28  |  1KB  |  40 lines
  1. m.crlf = chr(13)+chr(10)
  2. for m.i = 1 to 22
  3.     m.form = "form" + alltrim(str(m.i))
  4.     m.dbfile = m.form + ".dbf"
  5.     m.j = 0 
  6.         m.k = m.j + 1
  7.         m.letter = iif(m.j = 0, "", chr(m.j-1+asc("A")))
  8.         m.nextletter = iif(m.k = 0, "", chr(m.k-1+asc("A")))
  9.         m.scrfile = m.form +  alltrim(m.letter) + ".scx"
  10.         m.nextscrfile = m.form +  alltrim(m.nextletter) + ".scx"
  11.         ?m.scrfile
  12.         select 0
  13.         * if not file(m.scrfile) or not file(m.nextscrfile)
  14.         * exit
  15.         *endif
  16.         use &scrfile alias screen
  17.         go top
  18.         
  19.         * Take care of screen setup and cleanup code.
  20.         locate for screen.objtype=1
  21.         m.proccode = ""
  22.         m.setupcode = "INSERT INTO " + m.form + " (facility, today) VALUES (facility.facility, date()) "+ m.crlf
  23.         gather memvar memo fields screen.proccode, screen.setupcode
  24.         
  25.         * Make the Next button terminating and add a valid clause
  26.         go top
  27.         locate for screen.objtype=12
  28.         do while not eof()
  29.             m.picture = screen.picture
  30.             if at("Ne\<xt Page", m.picture) > 0
  31.                 m.picture = '"@*NH Ne\<xt Page"'
  32.                 replace screen.picture with m.picture
  33.                 m.valid = "do "+ m.form + "A.spr" + m.crlf
  34.                 gather memvar memo fields screen.valid
  35.             endif
  36.             continue
  37.         enddo
  38.         use
  39. endfor
  40.